unit uShellHowler;

interface

uses uCommonScript, SysUtils, uParamsController, uMainData, uConstants;

const
    atHurricane = 12;
    atAssist    = 13;

const
    ShellHowlerReUseTime: array [12..23] of TDateTime =
    (0.5/86400, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0);

type
    TShellHowlerScript = class(TCommonScript)
    private
        procedure AnalisData;
 {       procedure SelfControll;   }
    public
        constructor Create;
        destructor Destroy;
  {      procedure LaunchScript;  }
    end;

implementation

constructor TShellHowlerScript.Create;
var
    i: integer;
begin
    inherited;
    for i := 12 to High(FReUseTime) do
    begin
        FReUseTime[i] := ShellHowlerReUseTime[i];
    end;
end;

destructor TShellHowlerScript.Destroy;
begin
    inherited;
end;

procedure TShellHowlerScript.AnalisData;
begin
    inherited;
    AddNewAction(atPetFood, plImmediately);
    if MainData.TargetHP > 0 then
    begin
        AddNewAction(atHurricane, plLow);
    end
    else
    begin
        AddNewAction(atAssist, plImmediately);
    end;
end;

end.
